home *** CD-ROM | disk | FTP | other *** search
/ The Atari Compendium / The Atari Compendium (Toad Computers) (1994).iso / files / prgtools / gnustuff / tos / g__~1 / gpincl15.zoo / builtin.h < prev    next >
Encoding:
C/C++ Source or Header  |  1992-11-13  |  3.3 KB  |  160 lines
  1. // This may look like C code, but it is really -*- C++ -*-
  2.  
  3. /* 
  4. Copyright (C) 1988, 1992 Free Software Foundation
  5.     written by Doug Lea (dl@rocky.oswego.edu)
  6.  
  7. This file is part of the GNU C++ Library.  This library is free
  8. software; you can redistribute it and/or modify it under the terms of
  9. the GNU Library General Public License as published by the Free
  10. Software Foundation; either version 2 of the License, or (at your
  11. option) any later version.  This library is distributed in the hope
  12. that it will be useful, but WITHOUT ANY WARRANTY; without even the
  13. implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR
  14. PURPOSE.  See the GNU Library General Public License for more details.
  15. You should have received a copy of the GNU Library General Public
  16. License along with this library; if not, write to the Free Software
  17. Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
  18. */
  19.  
  20. /*
  21.   arithmetic, etc. functions on built in types
  22. */
  23.  
  24.  
  25. #ifndef _builtin_h
  26. #ifdef __GNUG__
  27. #pragma interface
  28. #endif
  29. #define _builtin_h 1
  30.  
  31. #include <stddef.h>
  32. #include <std.h>
  33. #include <math.h>
  34.  
  35. #ifdef __GNUG__
  36. #define _VOLATILE_VOID volatile void
  37. #else
  38. #define _VOLATILE_VOID void
  39. #endif
  40.  
  41. typedef void (*one_arg_error_handler_t)(const char*);
  42. typedef void (*two_arg_error_handler_t)(const char*, const char*);
  43.  
  44. long         gcd(long, long);
  45. long         lg(unsigned long); 
  46. double       pow(double, long);
  47. long         pow(long, long);
  48.  
  49. double       start_timer();
  50. double       return_elapsed_time(double last_time = 0.0);
  51.  
  52. char*        dtoa(double x, char cvt = 'g', int width = 0, int prec = 6);
  53.  
  54. char*        chr(char ch, int width = 0);
  55. char*        str(const char* s, int width = 0);
  56.  
  57. unsigned long hashpjw(const char*);
  58. unsigned long multiplicativehash(int);
  59. unsigned long foldhash(double);
  60.  
  61. extern _VOLATILE_VOID default_one_arg_error_handler(const char*);
  62. extern _VOLATILE_VOID default_two_arg_error_handler(const char*, const char*);
  63.  
  64. extern two_arg_error_handler_t lib_error_handler;
  65.  
  66. extern two_arg_error_handler_t 
  67.        set_lib_error_handler(two_arg_error_handler_t f);
  68.  
  69.  
  70. double abs(double arg);
  71. float abs(float arg);
  72. short abs(short arg);
  73. long abs(long arg);
  74. int sign(long arg);
  75. int sign(double arg);
  76. long sqr(long arg);
  77. double sqr(double arg);
  78. int even(long arg);
  79. int odd(long arg);
  80. long lcm(long x, long y);
  81. void (setbit)(long& x, long b);
  82. void clearbit(long& x, long b);
  83. int testbit(long x, long b);
  84.  
  85. #if !defined(IV)
  86.  
  87. // Maybe should use fabs
  88. inline double abs(double arg) 
  89. {
  90.   return (arg < 0.0)? -arg : arg;
  91. }
  92.  
  93. inline float abs(float arg) 
  94. {
  95.   return (arg < 0.0)? -arg : arg;
  96. }
  97.  
  98. inline short abs(short arg) 
  99. {
  100.   return (arg < 0)? -arg : arg;
  101. }
  102.  
  103. inline long abs(long arg) 
  104. {
  105.   return (arg < 0)? -arg : arg;
  106. }
  107.  
  108. inline int sign(long arg)
  109. {
  110.   return (arg == 0) ? 0 : ( (arg > 0) ? 1 : -1 );
  111. }
  112.  
  113. inline int sign(double arg)
  114. {
  115.   return (arg == 0.0) ? 0 : ( (arg > 0.0) ? 1 : -1 );
  116. }
  117.  
  118. inline long sqr(long arg)
  119. {
  120.   return arg * arg;
  121. }
  122.  
  123. inline double sqr(double arg)
  124. {
  125.   return arg * arg;
  126. }
  127.  
  128. inline int even(long arg)
  129. {
  130.   return !(arg & 1);
  131. }
  132.  
  133. inline int odd(long arg)
  134. {
  135.   return (arg & 1);
  136. }
  137.  
  138. inline long lcm(long x, long y)
  139. {
  140.   return x / gcd(x, y) * y;
  141. }
  142.  
  143. inline void (setbit)(long& x, long b)
  144. {
  145.   x |= (1 << b);
  146. }
  147.  
  148. inline void clearbit(long& x, long b)
  149. {
  150.   x &= ~(1 << b);
  151. }
  152.  
  153. inline int testbit(long x, long b)
  154. {
  155.   return ((x & (1 << b)) != 0);
  156. }
  157.  
  158. #endif
  159. #endif
  160.